home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / bin / chkdupexe < prev    next >
Text File  |  2009-10-22  |  4KB  |  121 lines
  1. #!/usr/bin/perl -w
  2. #
  3. # chkdupexe version 2.1.1
  4. #
  5. # Simple script to look for and list duplicate executables and dangling
  6. # symlinks in the system executable directories.
  7. #
  8. # Copyright 1993 Nicolai Langfeldt. janl@math.uio.no
  9. #  Distribute under gnu copyleft (included in perl package) 
  10. #
  11. # Modified 1995-07-04 Michael Shields <shields@tembel.org>
  12. #     Don't depend on GNU ls.
  13. #     Cleanups.
  14. #     Merge together $ENV{'PATH'} and $execdirs.
  15. #     Don't break if there are duplicates in $PATH.
  16. #
  17. # Modified 1996-02-16 Nicolai Langfeldt (janl@math.uio.no).
  18. #     I was thinking admins would edit the $execdirs list to suit their
  19. #     machine(s) when I wrote this.  This is ofcourse not the case, thus
  20. #     Michaels fixes.  And my fixes to his :-)
  21. #     - Working duplicate dirs detection.
  22. #     - Added more checks
  23. #     - Took out $PATH from the list of checked directories and added a
  24. #    check for $execdirs and $PATH consistency instead
  25. #     - Made it possible to run with perl -w
  26.  
  27. $execdirs='/bin /sbin /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin '.
  28.   '/usr/X11/bin /usr/bin/X11 /usr/local/X11/bin '.
  29.   '/usr/TeX/bin /usr/tex/bin /usr/games '.
  30.   '/usr/local/games';
  31.  
  32. # Turn off buffering for the output channel.
  33. $|=1;
  34.  
  35. # Values from /usr/include/linux/errno.h.  Existence of linux/errno.ph is not
  36. # something to count on... :-(
  37. $ENOENT=2;
  38.  
  39. %didthis=();
  40.  
  41. foreach $dir (split(/\s+/, "$execdirs"), "\0", split(/:/, $ENV{PATH})) {
  42.  
  43.   if ($dir eq "\0") { $checkingpath = 1; next; }
  44.  
  45.   # It's like this: One directory corresponds to one $device,$inode tuple
  46.   # If a symlink points to a directory we already checked that directory
  47.   # will have the same $device,$inode tuple.
  48.  
  49.   # Does this directory have any real exstence outside the ravings of
  50.   # symlinks pointing hither and dither?
  51.   ($device,$inode)=stat($dir); 
  52.   if (!defined($device)) {
  53.     # Nonexistant directory, or dangling symlink?
  54.     ($dum)=lstat($dir);
  55.     next if $! == $ENOENT;
  56.     if (!$dum) {
  57.       print "Dangling symlink: $dir\n";
  58.       next;
  59.     }
  60.     warn "Nonexistent directory: $dir\n" if ($checkingpath);
  61.     next;
  62.   }
  63.  
  64.   if (!-d _) {
  65.     print "Not a directory: $dir\n";
  66.     next;
  67.   }
  68.  
  69.   next if defined($didthis{$device,$inode});
  70.  
  71.   $didthis{$device,$inode}=1;
  72.  
  73.   chdir($dir) || die "Could not chdir $dir: $!\n";
  74. # This would give us the true directory name, do we want that?
  75. #  chop($dir=`pwd`);
  76.   opendir(DIR,".") || 
  77.     die "NUTS! Personaly I think your perl or filesystem is broken.\n".
  78.       "I've done all sorts of checks on $dir, and now I can't open it!\n";
  79.   foreach $_ (readdir(DIR)) {
  80.     lstat($_);
  81.     if (-l _) {
  82.       ($dum)=stat($_);
  83.       print "Dangling symlink: $dir/$_\n" unless defined($dum);
  84.       next;
  85.     }
  86.     next unless -f _ && -x _;    # Only handle regular executable files
  87.     if (defined($count{$_})) {
  88.       $progs{$_}.=" $dir/$_";
  89.       $count{$_}++;
  90.     } else {
  91.       $progs{$_}="$dir/$_";
  92.       $count{$_}=1;
  93.     }
  94.   }
  95.   closedir(DIR);
  96. }
  97.  
  98. open(LS,"| xargs -r ls -ldU");
  99. while (($prog,$paths)=each %progs) {
  100.   print LS "$paths\n" if ($count{$prog}>1);
  101. }
  102. close(LS);
  103.  
  104. exit 0;
  105.  
  106. @unchecked=();
  107. # Check if the users PATH contains something I've not checked. The site admin
  108. # might want to know about inconsistencies in user PATHs and chkdupexec 
  109. # configuration
  110. foreach $dir (split(/:/,$ENV{'PATH'})) {
  111.   ($device,$inode)=stat($dir);
  112.   next unless defined($device);
  113.   next if defined($didthis{$device,$inode});
  114.   push(@unchecked,$dir);
  115.   $didthis{$device,$inode}=1;
  116. }
  117.  
  118. print "Warning: Your path contains these directories which chkdupexe has not checked:\n",join(',',@unchecked),
  119.   ".\nPlease review the execdirs list in chkdupexe.\n"
  120.     if ($#unchecked>=$[);
  121.